CD Ware Multimedia 1994 November/Cd Ware (Nro. 2) - Epimundo.iso/DOS/GA/ZIM.ZIP/ZIM.ASI

Text File | 1994-06-21 | 5.0 KB | 227 lines

REM                Zimbabalu
REM    Written By Pete Holiday
BEGIN: CLS
Color 10, 0
Print "HERES THE INSTRUCTIONS."
Color 1, 0
Print "Booms a voice from, Um, Well, Everywhere."
Color 5, 0
Print "**********POOF***********"
Color 1, 0
Print "Zimbablu's Lawyer Apears in a puff of smoke!"
Color 2, 0
Print ""
Print ""
Print "1st, Ask Zimbabalu a question (Yes Or No please)"
Print "2nd, Read the answer he gave you!"
Print "    (hard huh!)"
Loop: X$=Inkey$
IF X$="" then loop:
CLS
COLOR 3, 0
Locate 10, 10
Print "Credits:"
Print "__________________________________________________"
Print "|         NAME             |        JOB          |"
Print "+==========================+=====================+"
Print "|     Pete Holiday         |Programming/Ideas    |"
Print "|     Jenni Edwards        |Programming/Testing  |"
Print "|   John /<ingfisher       |     Testing         |"
Print "+==========================+=====================+"
Print ""
Print " And a special THANX goes out to:"
COLOR 5, 0
Print " Zimbabalu and His Lawyer"
Print " John and Jenni"
Print " Compuserve's IBM forums"
Print " 80/20 software"
Print "       AND"
Print " You, and You, and You, and, well you get the picture!"
LOOP2: X2$=INKEY$
IF X2$="" then LOOP2:
BEEP
GoSub ANNOY:
END

ANNOY:
CLS
PRINT ""
PRINT ""
COLOR 15, 8
Print "I know you really hate these mesages but..."
COLOR 15, 0
Print "If you register you will recieve the program that"
Print "removes this blinking mesage and your name will be"
Print "Mentioned specifically in the above THANX."
Print "You will get discounted prices on White Lightning's"
Print "already low priced software."
Print "If you have a special order for a program you'd like"
Print "Just for your self, Send them to:"
Print "Pete Holiday"
Print "407 N. Elm"
Print "Lexington, IL 61753"
Print ""
Print "Or E-Mail me at"
Print "71604,254"
Print "To: White Lightning Software"
Print "From: |Your Name Here|"
Print "About: (Either [Prog. Request, Suggestion, Question])"
Color 14, 4
Print "NO CREDIT CARDS SUPPORTED, CHECKS ONLY PLEASE"
COLOR 2, 0
Print "For instructions on Requesting a Particular Prog."
Print "Type 'PrOg. ReQ.'"
Print "when the 'Ask zimbabalu a Yes or No question' prompt apears"
LOOP3: X3$=INKEY$
If X3$="" then LOOP3:
GoSub Zimbabalu:
END

Zimbabalu:
COLOR 10, 0
PRINT "Ask Zimbabalu any yes or no question";
INPUT ZIM$
IF ZIM$ = "PrOg. ReQ." then PROGREQ: else CHOICES:
COLOR 14, 0
PRINT ""
PRINT ""
Again: Print "PLAY AGAIN";
INPUT AGN$
IF AGN$ = "NO" Then END:
IF AGN$ = "N" then END:
IF AGN$ = "n" then END:
IF AGN$ = "no" then END: Else Zimbabalu:
Return
END: END
END

CHOICES:
CLS
RANDOMIZE
YORN = RND(0)
YORN = YORN MOD 14
YORN = YORN + 1
Print "Zimbabalu Magicaly Replies..."
IF YORN = 1 then One:
IF YORN = 2 then Two:
IF YORN = 3 then Three:
IF YORN = 4 then Four:
IF YORN = 5 then Five:
IF YORN = 6 then Six:
IF YORN = 7 then Seven:
IF YORN = 8 then Eight:
IF YORN = 9 then Nine:
IF YORN = 10 Then Ten:
IF YORN = 11 Then Eleven:
IF YORN = 12 Then Twelve:
IF YORN = 13 Then Thirteen:
IF YORN = 14 Then Fourteen:
REtuRN
END
One:
Color 15, 0
Print "Absoulutly!"
GoSub Again:
END

Two:
Color 4, 0
Print "No Way!"
GoSub Again:

Three:
Color 2, 0
Print "Maybe."
GoSub Again:

Four:
Color 15, 0
Print "Probably so."
Gosub Again:

Five:
Color 4, 0
Print "Probably Not."
GoSub Again:

Six:
Color 3, 0
Print "Ask Again."
GoSub Zimbabalu:

Seven:
Color 3, 0
Print "Good Bye"
LOOP12: ABCD$=INKEY$
If ABCD$="" then LOOP12:
End

Eight:
Color 14, 4
Print "How Rude To Ask Me That!"
GoSub Again:

Nine:
Color 5, 0
Print "How Should I Know?"
GoSub Again:

Ten:
Color 5, 0
Print "Go ask your mom (Or Legal guardian)"
GoSub Again:

Eleven:
Color 15, 0
Print "Yes."
GoSub Again:

Twelve:
Color 4, 0
Print "No."
GoSub Again:

Thirteen:
Color 3, 0
Print "Ask Later."
GoSub Again:

Fourteen:
Color 14, 4
Print "I HAVE NO TIME TO ANSWER YOUR MEASLY QUESTIONS!"
Loop99: ASD$=INKEY$
IF ASD$="" then Loop99:
END

ProgReq:
CLS
Color 9, 0
Print "Here's How It Works:"
Print "1st. You Send Me your request. (Be Very Specific) at the address below"
Print "2nd. I make your program. (As Close to your Idea as possible)"
Print "3rd. I send you the program. (Will only work for a 37 day trial period)"
Print "     Along with the Program You will Recieve a Bill."
Print "4th. After your trial period expires you have a choice:"
Print "        Pay For it and Recieve the Version that works (Without a limit"
Print "            of time for useage) and a warranty (I will decide) of no"
Print "            less than One Year"
Color 4, 0
Print "                            OR"
Color 9, 0
Print "        Dont Pay for it and Refile a new order with more specifics"
Print ""
PRint ""
Color 10, 0
Print "Address Below:"
Print "407 N. Elm"
Print "Lexington, IL 61753"
Color 4, 0
Print "    OR"
Color 10, 0
Print "E-Mail"
Print "71604,254"

GoSub Zimbabalu: